home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / bbs / mydoor01.zip / MYDOOR.BI < prev    next >
Text File  |  1997-07-22  |  4KB  |  125 lines
  1. TYPE dta
  2.         Reserved AS STRING * 21
  3.         attribute AS STRING * 1
  4.         Filetime AS STRING * 2
  5.         FileDate AS STRING * 2
  6.         FileSize AS LONG
  7.         filename AS STRING * 13
  8. END TYPE
  9. TYPE RegType
  10.      ax    AS INTEGER
  11.      bx    AS INTEGER
  12.      cx    AS INTEGER
  13.      dx    AS INTEGER
  14.      bp    AS INTEGER
  15.      si    AS INTEGER
  16.      di    AS INTEGER
  17.      flags AS INTEGER
  18. END TYPE
  19. TYPE RegTypeX
  20.      ax    AS INTEGER
  21.      bx    AS INTEGER
  22.      cx    AS INTEGER
  23.      dx    AS INTEGER
  24.      bp    AS INTEGER
  25.      si    AS INTEGER
  26.      di    AS INTEGER
  27.      flags AS INTEGER
  28.      ds    AS INTEGER
  29.      es    AS INTEGER
  30. END TYPE
  31.  
  32. COMMON SHARED ARG$
  33. COMMON SHARED AUTHOR$
  34. COMMON SHARED MYDOOR$
  35. COMMON SHARED response$
  36. COMMON SHARED RIP%
  37.  
  38. COMMON SHARED Bits AS INTEGER
  39. COMMON SHARED c.olor AS INTEGER
  40. COMMON SHARED fossiltype AS INTEGER
  41. COMMON SHARED handshake AS INTEGER
  42. COMMON SHARED IRQ AS INTEGER
  43. COMMON SHARED minsleft AS INTEGER
  44. COMMON SHARED nodenum AS INTEGER
  45. COMMON SHARED Parity AS INTEGER
  46. COMMON SHARED Port AS INTEGER
  47. COMMON SHARED slevel AS INTEGER
  48. COMMON SHARED Wlen AS INTEGER
  49.  
  50. COMMON SHARED lockbaud AS LONG
  51. COMMON SHARED starttime AS LONG
  52. COMMON SHARED time.dozeoff AS LONG
  53. COMMON SHARED time.remaining AS LONG
  54. COMMON SHARED time.start AS LONG
  55. COMMON SHARED time.used AS LONG
  56. COMMON SHARED time.watch AS LONG
  57. COMMON SHARED userbaud AS LONG
  58.  
  59. COMMON SHARED ansistr AS STRING * 20
  60. COMMON SHARED boardnam AS STRING
  61. COMMON SHARED crlf AS STRING
  62. COMMON SHARED droptype AS STRING
  63. COMMON SHARED fixcolor AS STRING
  64. COMMON SHARED Hexport AS STRING
  65. COMMON SHARED sysname AS STRING
  66. COMMON SHARED usernam AS STRING
  67. COMMON SHARED version AS STRING
  68.  
  69. DECLARE FUNCTION CarrierLost% CDECL ALIAS "_carrier_state" ()
  70. DECLARE FUNCTION DataWaiting% CDECL ALIAS "_data_waiting" ()
  71. DECLARE FUNCTION DriverCopyright% CDECL ()
  72. DECLARE FUNCTION FiEx% (filename$)
  73. DECLARE FUNCTION KeyInBuf% ()
  74. DECLARE FUNCTION ModemStatus% CDECL ALIAS "_inputstatus" ()
  75. DECLARE FUNCTION ReadChar% CDECL ()
  76. DECLARE FUNCTION trim$ (St$)
  77. DECLARE FUNCTION WriteChar% CDECL (BYVAL c%)
  78.  
  79. DECLARE SUB ABSOLUTE (address AS INTEGER)
  80. DECLARE SUB at (Ypos%, Xpos%)
  81. DECLARE SUB at.say (row%, col%, mes$)
  82. DECLARE SUB box.it (x%, y%, fgc%, bgc%, high, wide)
  83. DECLARE SUB BREAKcontrol CDECL ALIAS "_break_state" (BYVAL state%)
  84. DECLARE SUB CarrierDetect CDECL ALIAS "_carrier_detect_flag" (BYVAL OnOff%)
  85. DECLARE SUB CHIME ()
  86. DECLARE SUB clear.scr ()
  87. DECLARE SUB ClearInputBuffer CDECL ALIAS "_clear_input_buffer" ()
  88. DECLARE SUB CloseComm CDECL ALIAS "_close_comm" ()
  89. DECLARE SUB colr (fg%, bg%, blink%)
  90. DECLARE SUB dbar (row%)
  91. DECLARE SUB defos ()
  92. DECLARE SUB DosLocate (Ypos%, Xpos%)
  93. DECLARE SUB Dmprint (St$)
  94. DECLARE SUB DTRcontrol CDECL ALIAS "_dtr" (BYVAL OnOff%)
  95. DECLARE SUB get.string (hot%, wide%, hide%)
  96. DECLARE SUB GetCursorPos (Ypos%, Xpos%)
  97. DECLARE SUB In.put (wide%, hot%, ifg%, ibg%, blink%, msg$, tfg%, tbg%, row%, col%, hide%)
  98. DECLARE SUB InitPort ()
  99. DECLARE SUB INT86OLD (intnum AS INTEGER,inarray(1) AS INTEGER,outarray(1) AS INTEGER)
  100. DECLARE SUB INT86XOLD (intnum AS INTEGER,inarray(1) AS INTEGER,outarray(1) AS INTEGER)
  101. DECLARE SUB INTERRUPT (intnum AS INTEGER,inreg AS RegType,outreg AS RegType)
  102. DECLARE SUB INTERRUPTX (intnum AS INTEGER,inreg AS RegTypeX, outreg AS RegTypeX)
  103. DECLARE SUB OpenComm CDECL ALIAS "_open_comm" (BYVAL Port%, IRQ%, BYVAL Wlen%, BYVAL Parity%, BYVAL Bits%, BYVAL Baud&, BYVAL HS%, BYVAL FOSSIL%)
  104. DECLARE SUB RTScontrol CDECL ALIAS "_rts" (BYVAL Onff%)
  105. DECLARE SUB leave (n%)
  106. DECLARE SUB nl (n%)
  107. DECLARE SUB pause (row%)
  108. DECLARE SUB read.cnf (nodepath$)
  109. DECLARE SUB read.door.sys (Wheredrop$)
  110. DECLARE SUB read.dorinfo.def (Wheredrop$)
  111. DECLARE SUB read.tribbs.sys (Wheredrop$)
  112. DECLARE SUB rip.check ()
  113. DECLARE SUB set.status (W%)
  114. DECLARE SUB show.mess (mes$, carriage%)
  115. DECLARE SUB syscont ()
  116. DECLARE SUB SysopClose ()
  117. DECLARE SUB time.down ()
  118. DECLARE SUB time.up ()
  119. DECLARE SUB time.update ()
  120. DECLARE SUB togglebreak (sw%)
  121. DECLARE SUB Transmit CDECL ALIAS "_transmit_string" (addr$)
  122. DECLARE SUB waitasec (sec%)
  123.  
  124. TODAY$ = LEFT$(DATE$, 2) + MID$(DATE$, 4, 2) + RIGHT$(DATE$, 2)
  125.